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FFFFFFFFFF RRRRRRRR MM MM 000000 DDDDDDOD 11 

FFFFFFFFFF RRRRRRRR MM MM 000000 DDDDDDDD 11 

FF RR RR MMMM MMMM 00 00 DD DD 1111 

FF RR RR MMMM MMMM 00 00 DD DD 1111 

FF RR RR MM MM 00 00 DD DD 11 

FF RR RR MM MM MM 00 00 OD DD 11 

FFFFFFFF RRRRRRRR MM MM 00 00 OD DD 11 

FFFFFFFF RRRRRRRR MM MM 00 00 OD DD 11 

FF RR RR MM MM 00 00 OD DD 11 

FF RR RR MM MM 00 00 OD DD 11 

FF RR RR MM MM 00 00 OD DD 11 eee 
FF RR RR MM MM 00 00 DD DD 11 eeee 
FF RR RR MM MM 000000 DDDDDDDD 111111 cece 
FF RR RR MM MM 000000 DDDDDDDD 111111 coos 
LL IIIT] SSSSSSSS 

LL HII] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] $$ 

LL II SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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3 1 001 

; ¢ oe MODULE FRMOD1 (LANGUAGE 6415838) P 

3 00 IDENT = 'V04-000' 

$ 4 oee d= 

$ 5 : 5 : BEGIN 

: ? 007 ! Vee RARER AAAAARARARARA ARERR AEAE TEETER AERA EEE 
; 0 'e 

3 g 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 610 010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 4 gett : i ALL RIGHTS RESERVED. * 
3 : * 
3 ig 1g 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED »* 
; 64 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
s 5 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
o<\. Bats 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
me a 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ + id : * TRANSFERRED. * 
3 it ® 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $$ + ¢ ’ :* CORPORATION. * 
4 if ® 
; 26 0034 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 2 0026 1 !* * 
ee 4 0027 1 !* * 
3 $8 +t 1 LRA AREA AEA AAA ARATE EATER AERA RARER RARER 
H 0 1 

3 50 $080 1 !+¢ 

3 1 0031 1! 

; $8 RT 1 ! FACILITY: MTAACP 

; 0035 1! 

; 0034 1 ! ABSTRACT: 

; $2 0035 1! 

3 6 0036 1! This module formats a files-11 structure level 1 

ye 0037 1! file header 

;s 38 0038 1! 

; #62639 0039 1 ! ENVIRONMENT: 

:; 40 0040 1! 

:; (41 0041 1! Starlet operating system, including privileged system services 

; $9 0042 1! and internal exec routines. 

s 6 00435 1! 

: 44 Bee } feo 

s 65 045 1 

: $6 Boag 1! 

; «4 0047 1! 

: P| Bee \ : AUTHOR: D. H. GILLESPIE, CREATION DATE: 19=MAY-1977 17:06 

3 30 33 ' } MODIFIED BY: 

5 28 O28 1! v03-002 LMP0221 L. Mark Pilant, 28-Mar-1984 13:25 

; »% i me Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 

; 53 094 ORBSW_PROT. 

3 6 036 1! v03-001 mmD0155 Meg Dumont, 26-Apr-1983 9:15 

s 57 0057 1! Cleanup of comments 
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Changed to use new file header structure name 


' 

i v02-010 pMw00057 David Michael Walp 7=Dec-1981 

Changed CALC_VERSION to non=COMMON_CALL 

i v02-009 pmw00056 David Michael Walp 30-Nov-1981 

: added file name parsing routines. Part of ANSI ‘'a’’ 

file name support 

i v02-008 DMw00037 David Michael Walp 29-Sep-1981 

Format the ODS1 header correctly 

VO02-007 REFORMAT Maria del C. Nasr 30-Jun-1980 

i A0006 MCNO003 Maria del C. Nasr 16-0ct-1979 14:06 
Add HDR3 processing 

| A000S MCNO004 Maria del C. Nasr 15-Oct-1979 15:25 
i 

i 


ee 
LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
REQUIRE ‘'SRCS$:MTADEF .B32'; 


LINKAGE 
JSB_CHAR = JSB () : GLOBAL ( CHAR_COUNT = 1, STRING_PTR = 2); 


EXTERNAL ROUTINE 
LIBSCVT_DTB : ADDRESSING_MODE (ABSOLUTE); ! decimal to binary 


FORWARD ROUTINE 
FORMAT_DATEOD1 : NOVALUE, ! formats date for ODS1 
FORMAT_F11HOD1 : COMMON CALL NOVALUE, ! format Files-11 ODS1 Header 
FOR”al_FID : LUE ! format File Id 
GETCHAR : JSB_CHAR; i get char from input string 
EXTERNAL 
HDR1 : REF BBLOCK, ' address of HDRI(EOF1) Label 
HDR4 : REF BBLOCK; ! address of HDR4(EOF4) Label 


4 Paye 2 


FRM 
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MACRO PARSE_TO_RADSO_FILE_ID = 
144 


' 
FUNCTIONAL DESCRIPTION: 

This routine parses the file identi 
are stripped from type and name fie 
calculate version number. If transl 
HDR4 information, beacuse the long f 
this mode. 


CALLING SEQUENCE: 
PARSE_TO_RADSO_FILE_ID 


fololelelo lola) 


© ek ek el del del de te Ie dee dee ae 


r field in HDR! Bratt tog blanks 
° transi ete to RADSO and 

ng to RAD50 no need to interpret 
e names are not supported in 


o--—-s 


je 
ds 
ti 
il 


OOO 000000000000 000000 


OOoOooooocoo 
= 
oO 
FW “OC OONOUS wn 


49 
495 INPUT PARAMETERS: 
49 none 
049 
Be38 IMPLICIT INPUTS: 
499 none 
0500 
01 OUTPUT PARAMETERS: 
8§ none 
04 IMPLICIT OUTPUTS: 
05 none 


ROUTINE VALUE: 
none 


ee ee ea ee a ee a ee a ee ee ee ee ce ee ee a cl ee ce ee ee ee ee ee ee ee eed ee 
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8 

9 

0 

1 

¢ BEGIN 

: address of the name block in the FILE header 

6 BIND 

: NAM_BLK = HEADERC FHISC_LENGTH + FI1$W_FILENAME J) : VECTOR C , WORD J; 
Q EXTERNAL ROUTINE 
$9 CALC_VERSION; ! get the version number 
3 LOCAL : 

? TYPE_PTR: REF VECTOR C , BYTE J; ! addr of file type field 

5 GLOBAL REGISTER 

6 CHAR_COUNT = : LONG, ' number of characters left 

7 STRING_PTR = 2. : REF VECTOR C , BYTE J;! string pointer 

§ LITERAL 

0 -NAME_LEN = 9, ! maximum file name Length 

1 MAX_TYPE_LEN = ? ! maximum file type length 

§ TYPE FIELD = 3, ' file type offset in name BLK 
; NAM-VER_FIELD = 4; ! file ver offset in name BLK 
5 


RS ee lg a OT ils pa ee ip a ig aah 
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Te-Sep-1984 18:46:40 ERTAACPeSRESFRAOD I B30; Pas 2) 


PARSE and TRANSLATE to RADSO THE FILE NAME FILE FIELD 
— 
setup address of the file id in HDR1 
STRING_PTR = HDR1 C HDIST_FILEID J; 
scan up to 9 characters or until a period is found 
CHAR_COUNT = CHSFIND_CH ( MAX_NAME_LEN, .STRING_PTR, '.* ); 
CHAR-COUNT = ( IF CHSFAIL ( .CHAR_COUNT ) 
THEN MAX_NAME_LEN 
ELSE . CHAR_COONT = .STRING_PTR ); 
save the pointer to the start of the file type field 
TYPE_PTR = STRING_PTR C .CHAR_COUNT J; 
strip off trailing blanks 
DECR I FROM (.CHAR COUNT - 1) T0 0 00 
IF .STRING PTRE.I] NEQ ' ' 
THEN EXITLOOP 
ELSE CHAR_COUNT = .CHAR_COUNT - 1; 
convert file name to rad50 


INCRU I FROM 0 TO 2 DO 
DECRU J FROM 3 TO 1 DO NAM_BLKL.1) = .NAM_BLKL.1]*40 + GETCHAR(); 


USPS SUSIE BB Bs BEE EI 


lee 
' 


; PARSE and TRANSLATE to RADSO THE FILE NAME TYPE FIELD 
len 

pickup the saved address of file type string 
STRING_PTR = .TYPE_PTR; 


ee ee a ee ee me ee ee ee 8 ee ee ed ae ed ed od ed dd dd 
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: if we are at a use it as a delimitor 
If .STRING_PTRCO] EQLU '.* THEN STRING_PTR = .STRING_PTR + 1; 
strip trailing spaces 
CHAR_COUNT = MAX_TYPE_LEN; 
DECR I FROM 2 T0°0 
IF .STRING_PTR C.1] NEQ * ‘ 
THEN EXITLOOP 
ELSE CHAR_COUNT = .CHAR_COUNT - 1; 
: convert the file type to RADSO 


DECRU I FROM 3 TO 1 DO 
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5 


bb sk 8 db ts Lt 


iSBeoct9Rs 98:20:28 yaned1 BLiagrs2.v4.0c749 
NAM_BLKCNAM_TYPE_FIELD] = .NAM_BLKCNAM_TYPE_FIELDJ#40 + GETCHAR(); 


'44 
i 


i convert generation number and generation version number to binary 
file version number 


= 
CALC_VERSION ( NAM_BLK C NAM_VER_FIELD ] ) 


END; 
Bs 
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FRMOD1 1b-Se -1984 02:20:2 AX-11 Bliss-32 V4.0-74 Pa 6 
v04-000 12-88-1382 96: 20:¢ MIAACPeSRET FRONT bSost ” (3) 
: 008 } ROUTINE GETCHAR : JSB_CHAR = 
Pa aie 
; : 18 | { FUNCTIONAL DESCRIPTION: 
: 4 615 1: This routine returns the rad-50 code of the next character in the 
; 5 218 2 input string if it is in the rad-50 set. If end of string has been 
3 be) 13 reached, it returns zero. If it is a non-rad50 char, then it is 
; 918 } mapped to z. It uppercase letters. 
: 239 Oe 0 | i CALLING SEQUENCE: 
; re be ' GETCHAR () 
; 4g 06 : 1 | INPUT PARAMETERS: 
: Sta 0655 1 | _ 
: 34s 0626 i IMPLICIT INPUTS: 
> 246 06 1: STRING_PTR = string pointer 
: rt 4 38 : ' } CHAR_COUNT = count of the number of characters 
: 269 $088 1 | OUTPUT PARAMETERS: 
gob ee 8 | hen 
: 3 $634 1 | IMPLICIT OUTPUTS: 
.> = 0634 1! STRING_PTR = string pointer 
: $3¢ poe? ! CHAR_COUNT = count of the number of characters 
: 256 0637 1 | ROUTINE VALUE: 
; see st ! character code 
: 259 0640 1 ! SIDE EFFECTS: 
; 260 0641 1! Count decremented and stringp advanced. 
; $6) beeg 1 
5 o¢ 0645 1 !-- 
; 26 0644 1 
pee he Po 
: 266 0647 2 EXTERNAL REGISTER 
: 267 0648 CHAR COUNT = 1 : LONG, ! number of characters left 
5 $08 4 STRING_PTR = 2 : REF VECTOR C, BYTE]; ! pointer into the string 
: 270 0651 LITERAL 
3 a! 0636 RAD50_Z = ('Z' = ‘A') + 1; 
: 27 0654 LOCAL 
3 m oee2 CHAR; ! character in process 
; A 0357 H If the string is empty return 0 as the character 
; 28 659 if .CHAR_COUNT LEQ 0 THEN RETURN 0; 
; 30 ) 1 Get the next character from the string 
: ag es CHAR = .STRING_PTR(O); 
: 284 665 ' advance to next character 


413 
MOD1 16-Sep-1984 :20: AxX-11 Bliss-32 V4.0-74 Pa 
04-000 1exgeh=1382 98:28:23 YAKaACe SAE SFRmODT  S35¢ ™ 
3; 285 066 ! 
; @ 66 CHAR_COUNT = .CHAR_COUNT = 1; 
; 87 668 STRING_PTR = .STRING_PTR + 1; 
; 89 H RETURN SELECTONE .CHAR OF 
: 291 67 ‘A’ TO 'Z') : (.CHAR = 'A') #1; s 
; 29 be58 ‘a’ TO xf : (.CHAR = ‘a') + 1; R 
: 29 0674 'O' TO '9') : (.CHAR = '0") + 30; E 
; 3% 0679 OTHERWISE] : RADSO_Z; : 
; 296 0677 1 END; ! end of routine getchar 
.TITLE FRMOD1 
-IDENT \v04-000\ 
.EXTRN LIBSCVT_DTB, HDR1 
“EXTRN HDR4 
.PSECT $CODE$,NOWRT,2 
53 DD 00000 GETCHAR:PUSHL 3 ; 
51 DS 00002 TSTL  CHAR_COUNT : 
4C 15 00004 BLEQ $ 
50 82 9A 00006 MOVZBL (STRING _PTR)+, CHAR : 
51 D7 00009 DECL | CHAR_COONT F 
00000041 SF 50 01 BpotS CMPL HAR, #6 : 
OF 19 0001 BLSS 3 
QO00005A =««aBF 50 D1 00014 CMPL CHAR, #90 $ 
06 14 00018 BGTR $ 
53 CO AO 9E 00010 MOVAB -64(RO), R3 3 
16 11 00021 BRB g 
00000061 8F 50 D1 00023 1$: CMPL HAR, #97 : 
12 19 QOO2A BLSS : 
Q0000007A_ =s«:«aBF 50 D1 000 CMPL HAR, #122 3 
09 14 000 BGTR 3 
53 AO 49 4 000 MOVAB <-96(RO), R3 F 
50 53 dO 00039 2$: MOVL R3, RO § 
16 11 0003C BRB : 
30 50 D1 OOO3E 3$: CMPL CHAR, #48 i 
9A 19 00041 BLSS 3 
39 o2 9} 4k Haas . #57 3 
50 if C2 Sock SUBL2 #18, RO : 
07 11 4B BRB 6$ 3 
50 1A DO 0004D 4$: MOVL #26, RO : 
3 11 28 BRB 6$ ; 
D4 004 5$: CLRL =. RO F 
8 BA 00054 6$: POPR #*M<R3> 3 
05 00056 RSB 3 


3; Routine Size: 87 bytes, Routine Base: S$CODE$ + 0000 
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GLOBAL ROUTINE FORMAT_F11HOD1 (HEADER) : COMMON_CALL NOVALUE = 

'+4 

FUNCTIONAL DESCRIPTION: 


is routine formats an Ansi labeled magnetic tape file header 
for files-11 on-disk structure 1 


CALLING SEQUENCE: 
FORMAT _F11HOD1(ARG1) 


INPUT PARAMETERS: 
ARG1 = address of buffer 


IMPLICIT INPUTS: 
CURRENT_VCB = address of current vcb 
tape header labels read in or defaulted 


OUTPUT PARAMETERS: 
ARG1 - address of buffer 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 
header receives 512 characters of files-11 ODS-1 file header 


BEGIN 
EXTERNAL REGISTER 
COMMON 3 
EXTERNAL ROUTINE 
LIBSCVT_HTB : ADDRESSING_MODE (ABSOLUTE); ! hexadecimal to binary 
MAP HEADER : REF BBLOCK; ! addr of output buffer 
EXTERNAL 
LOCAL_FIB : BBLOCK, 
CURRERT_UCB : REF BBLOCK, ' addr of current UCB 
HDR : REF BBLOCK, ! addr of HDR oes Label 
HDR : REF BBLOCK; ! addr of HDRS(EOFS) Label 
LOCAL 
: REF BBLOCK; ! Address of ORB 
RECTYPE_ANSI = UPLIT BYTE('UFDVS') VECTOR C, BYTE), 
RECTYPE_FILE11 = UPLIT BYTE(O, 1, 2. 3. & VECTOR {, BYTE), 
RECATTR_ASCI = UPLIT BYTE('MA *) VECTOR tL, BYTE), 
RECATTR_FILE11 = UPLIT BYTEC(O, 1, 2) VECTOR CL, BYTEJ, 


F 
v04 


14 
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5 pointer into the record attributes in the header part 
? RECATIR = HEADERCFHIS$W_RECATTRI : BBLOCK; 
59 LITERAL 
60 RECTYPE_LEN = 3: 
61 RECATTR_LEN = 3; 


zero in the header 

CHSFILL(O, 512, .HEADER); 

fill in offset to ID and MAP areas 
HEADERCFH1$B_IDOFF SETI = FHISC LENGTH/2; 


HEADERLFH1$B_MPOFFSET] = (FHI$C_LENGTH + FI11$C_LENGTH + 
11$S_MTHDR2 + FI1$S_MTHDR3)/2; 


i 328 2 FIVSS_MTHDR1 + F ; 
: 374 075 ; : 
3 75 075 '4¢ 3 
; 316 075 ' : 
; as 8 : : FILL IN THE FILE HEADER AREA OF THE HEADER : 
: 379 075 ine : 
; 380 076 é 3 
r $e) 38 § structure level ( known constant ) : 
: 388 076 ; HEADERCFH1$W_STRUCLEV] = FHISC_LEVEL1; ; 
; 3B¢ 076 ! fill in the File ID (FID) : 
; 386 0766 2 ! 3 
3 $00 4524 2 FORMAT_F ID(HEADERCFH1$W_F 1D_NUM)); : 
: $00 th 44 : ! Get the address of the Object's Rights Block (ORB). : 
; 331 O77) ; ORB = .CURRENT_UCBCUCBS$L_ORB); : 
; 398 O78 rs : format fileowner from UCB, if the a long UIC, fold into [377,377] : 
: 395 0775 iF .(ORBCORB$W_UICGROUP])<8,8> NEQ 0 : 
: 796 0776 OR . (ORBCORBSW"UICMEMBER])<8,8> NEQ 0 : 
: 397 0777 THEN HEADERCFHTSW_FILEOWNER] = -1 : 
: 398 0778 ELSE 3 
: 399 77 BEGIN : 
3; 400 0780 HEADERCFH1$B_UICMEMBER] = .ORBCORBSW_UICMEMBER); 3 
: 401 0781 HEADERCFH1$B8_UICGROUP] = .ORBCORB$W_OICGROUP); 3 
: 40 40 END; 3 
; 40 07 3 
3 6404 0784 ' protection from UCB : 
; 405 785 ' 3 
: 406 7 IF .ORBCORB$V_PROT_16) ‘ 
3: 407 787 THEN HEADERCFHI$W_FILEPROT] = .ORBCORB$W_PROT] 3 
3; 408 788 ELSE 3 
: 409 789 BEGIN 3 
: 410 07 0 (HEADERCFH ; 


EPROTJ)<0,4> = > fonatenee SYS_PROTJ)<0,4>; 
EPROTJ)<4,4> = .(ORB 


1$W_FIL 
(HEADERCFH1$W_FIL 


ORBSL~OWN~PROT])<0.4>: 
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v04-000 10730-1984 93:28:40 EMTAACP. SRCTFRMOD1 .83271 9 (4) 
; tig 138 tents Er au LEER OT a} <t 4> = De fst GRP_PROT])<0,4>; 
: 41 79 (HEADERLFH1$W~FILEPROTI)<12,4> = . (ORBLORBSC_WOR_PROT)<0,45; 
>; 416 794 END; 
: 415 795 
: 218 £38 14+ 
> 41 79 i 
; 218 8288 ; Fill in the Record Attributes in the Header Id Area 
; 420 0800 ! dst Fill in the stuff from the ANSI field 
> 42) 0801 ! @nd Get the RMS stuff in HDR2 or HDR3 
; 4 ¢ 4 ' 
B. 080 = 
; 426 04 : 
; 425 0805 ! fill in the type of record ( variable, fixed, undefined, spaned ) 
: 426 0806 ' assume undefined 
; 427 0807 ! 
; 428 0808 RECATTRCFATS$SB_RTYPE) = 0; 
: 429 0809 DECR I FROM RECTYPE a - 11700 D0 
; 4350 0810 IF .RECTYPE_ANSIC.1] EQL .HDR2CHD2$B_RECFORMATI 
; 431 0811 THEN 
3 $36 oats BEGIN 
: 43 081 RECATTRCFATSB_RTYPE) = .RECTYPE_FILE11C.10; 
: 434 0814 EXITLOOP; 
: 435 0815 END; 
: 436 0816 Re 
3; 437 0817 ! fill in form control ( Fortran, Form control in record, implied <CRLF> ) 
: 438 0818 ' assume implied <CRLF> 
: 439 0819 2 ! 
; 440 0820 § RECATTRCFATSB_RATTRIB) = 2; 
> 441 0821 DECR I FROM RECATTR LEN - | 10 0 DO 
> 46 bess 2 IF .RECATTR_ASCIC.1) EQL .HOR2CHD2$B_FORMCNTRLJ 
3; 44 082 ¢ THEN 
3 6444 0824 BEGIN 
3 445 0825 3 RECATTRCFATSB_RATTRIB) = .RECATTR_FILE11C.1); 
3; 446 0826 EXITLOOP; 
: 447 0827 2 ; 
: 448 0828 2 
3 «469 +4 ! fill in the record size and max size 
: 450 0830 ! 
3; 451 0831 BEGIN 
3 $2 bess LOCAL VALUE; 
: $28 Oeee LIBSCVT_DTB(HD2$S_RECLEN, HDR2CHD2$T_RECLEN], VALUE); 
3 $28 0836 if variable length records subtract overhead 
: $38 0838 IF .HDR2CHD2$B_RECFORMAT] EQL "D* THEN VALUE = .VALUE - 4; 
; 460 840 RECATTRCFATSW_RSIZEJ_ = .VALUE<O, 16>; 
; 461 841 RECATTRCFATSW_MAXREC] = .VALUE<O, 16> 
; £66 Hk END; 
: 46 4 
3 rr} Bee if the file was created on a VMS system fill in RMS attributes 
; 496 oe? if . CURRENT_VCBCVCBSV_STARF ILE) | 
; 468 0848 IF .(HDR2CHD2$T_RECATR1])<0,8> NEQ ° ° 


1986 93:20:20 EMtaaceesncien 
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} old tape, attributes are in HDR2 
THEN 


BEGIN 
CHSMOVE (HD RECATR 


$S_ 1, mong e ST_RECATRIJ, RECATTR); 
oe SS_RECATR2, HOR2LHD2$T_RECATR2], RECATTR+HD2$S_RECATR1); 


ELSE 
IF .HDR3CHD3$L_HD3LID] EQL 'HDR3' 
THEN INCR I FROM 0 TO 28 BY 4 DO 
LIBSCVT_HTB(8, HDRSCHD3$T_RECATR] + (.1*2), RECATTR + .1); 


! records do not span block boundaries if the user requests the original 
} attributes of the file, don't set span 

if NOT LOCAL FIBCFIBSV_PRSRV_ATR] 

THEN RECATTRCFAT$B8_RATTRIB) = »RECATTRCFATS$B_RATTRIB] OR FATSM_NOSPAN; 
le4 
i] 

} FILL IN THE FILE ID AREA OF THE HEADER 
— 
499 0879 fill in the file name, type and version 
PARSE_TO_RAD5O_FILE_ID; 

fill the creation and expiration dates 


FORMAT_DATEOD1 (HDR1CHD1$T_CREATEDT) ,HEADERCFH1$C_LENGTH+F11$T_CREDATE],1); 
FORMAT_DATEOD1 (HDR1CHD1$T—EXPIREDT]HEADERLFH1$C-LENGTH#S 1 1$T-EXPDATE).0): 


: move the tape file header Labels into the ident area of the ODS1 header 


CHSMOVE( FI1SS_MTHDR1 + FI1SS_MTHDR2 + F11$S_MTHDR3 
.HDR1> HEADERCFHISC_CENGTH + F11$T_ATHDR1]5; 
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. CREATE A DUMMY MAP AREA FOR THE ODS1 HEADER 
= 
BEGIN 
LOCAL MAP_AREA : REF BBLOCK; 


MAP AREA = HEADER + (HEADER C FHISB_MPOFFSET J * 2 ); 
MAP~AREACFMi$B_COUNTSIZE) = 1; 
MAPAREALFM1$B-LBNSIZE) = 3; 
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H $ 8308 MAP <pneh CFM1$B_AVAIL] = 

: gf 30 EADERLF PHTSW CHECKSUM] = .MAP_AREA = FMISC_LENGTH ) / 2; 
: 529 $909 END; 

$ 0 0910 

3 1 0911 

: 338 $918 e 

: 534 0914 i CALCULATE THE CHECKSUM 

Bo BBG 

BY dies 

3 278 3484 reference the dummy ODS1 header as word 

; 241 09 1 VHEADER = HEADER : REF VECTOR C, WORD); 

: 508 3 § now calculate checksum 

: 545 0925 DECR I FROM 254 10 0 D 

>: 546 0926 3 HEADERCEAT SW. CHECKSUM) = »HEADERCFHISW_CHECKSUM] + .VHEADERC.1] 
: Bag $958 5 2 

: 549 0929 (1 END; ! end of routine 


53 56 44 46 55 00057 P. .ASCII \UFDVS\ ; 
00 03 02 01 00 0005¢ P.AAB: .BYTE 0, 1, 2, 3, 0 : 
20 41 4D 00061 P.AAC: ASCII \MA \ : 
02 01 00 00064 P.AAD: .BYTE 0, 1, 2 : 
RECTYPE_ANSI= P.AAA 
RECTYPE-FILE11= P.AAB 
RECATTR-ASCI= -AAC 
RECATTR-FILE11= P.AAD 
.EXTRN LIBSCVT_HTB, LOCAL_FIB 
EXTRN EURRENT =U CB. HDR2 ~ 
-EXTRN HDR3, CRLE _VERSION 
07FC 00000 ENTRY FORMAT _ F11HOD1, Save R2,R3,R4,R5,R6,R7,R8,- ; 0678 
SA 94 AF 9E 00002 OVAB GETCHAR, R10 ; 
3E 04 ¢ 90006 SUBL2 #4, SP ; 
5 04 AC DO 00009 OVL HEADER. RB R8 : 0737} 
56 OE AS 9E 9000 MOV 14(R : 
00 6E 09 2c Oot movcS #0, (3b) * °n0, #512, (RB) : 0746 
68 A617 BF BO 00019 MOVW rai? (RB) > 075 
06 AB 0101 F B0 0 IF MOVW &(R8 : 076 
02 AB OF 9 3 PUSHAB 2(R : 0767 
0000v CF 01 FB 7 CALLS ai" ae FID : 
50 00006 CF DO 0002C MOVL Bao) “one UCB, RO : 0771 
50 if A p 031 MOVL (R ; 
03 A 0 TSTB (ORB : 0775 
05 1 0 BNEQ $ : 
01 Ad 95 OO03A TSTB  —- 1 (ORB) : 0776 
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g CHAR COUNT 
STRING_PTR, CHAR COUNT 


AR_COUNT 
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_PTR 


_PTR, TYPE 


STRING 
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CHAR_COUNT 
SHAR. 
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COUNT, I 
$1 )CSTRING_PTRI, #32 
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0 MTAACP. SRC} FRMOD1.832;1 
(R8), RO 
R8)CROJ, MAP_AREA 
769, 6(MAP_AREA) 
AP AREA, RB, R2 

TRE » R2 

» Re, RI 

9(MAP_AREA) 

§4, 1 

- A 
rb) C1I, 510(R2), 510(RO) 
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ROUTINE FORMAT_DATEOD1 (INPDT, OUTPTR, TIME_REQUESTED) : NOVALUE = 
i++ 


i FUNCTIONAL DESCRIPTION: 
This routine formats an on-disk structure one date from the 
julian date on an Ansi Labeled magnetic tape. 


: CALLING SEQUENCE: 
FORMAT _DATEOD1 (ARG1,ARG2,ARG3) 


INPUT PARAMETERS: 
ARG1 = address of input julian date 
ARG2 - address of output buffer ; 
ARGS - 0 if time is not requested, 1 if time is requested 


IMPLICIT INPUTS: 
none 


OUTPUT PARAMETERS: 
ARG2 = address of output buffer 


IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 
date attribute written to output buffer (ddmmmyy) 
if time wanted, followed by (000000) 


BEGIN 
LOCAL 
DATA : BLOCK C BYTE, 12 J], ! work area in which date is formatted 
PTR ! pointer to output buffer 
INPTR, ! pointer to input buffer 
R; ! char from input string 
EXTERNAL ROUTINE 
CONVDATE_J2R; ! convert ANSI Julian date to VMS date 


! convert julian date in hdri to ddmmmyy and if time is requested, return 
zeros 
assume output buffer initialized to zero 


iF NOT CONVDATE_J2R(DATA, .INPDT) THEN RETURN; 
(.OUTPTR)<0, 16> = .(DATA)<0, 16>; 
({OUTPTR + €)< , 24> = (DATA + 3}< , 24>; 
(OUTPTR + 5)<0; 16> = 2 (DATA + 9)<0, 16>: 


IF .TIME_REQUESTED THEN CHSFILL('O", 6, (.OUTPTR + 7)); 
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FRMOD1 16-Sep-1 0:23 AX-11 Bliss-32 V4.0-74 
04-000 1enseo1obe §Sicacd | Yatanteesdese ae oyt -O554e 
; 608 0987 1 END; ! end of routine 
.EXTRN CONVDATE_J2R 
003C 00000 FORMAT -DATEOD1: er al eae 
ave R¢2,R5,RS, 
SE Oc c2 90002 SUBL2 ne SP 
04 AC 0D 00 PUSHL INP 
4 AE 9F 00008 PUSHAB 
00006 cr 9 FB 90 CALLS QNVDATE. J2R 
: E LBC 
5 08 AC OD 1 MOVL RO, 18 RO 
60 6— 8B 1 MOVW DATA, _(RO) 
02. a0 18 0 Ps as 1A INSV _—DATA$3, 70 #24, 2(RO) 
™ 07 H Ae e 4 Beoe mane Fels. 15 
06 30 6E 06 5? O2A MOVCS #0, TSP), ty “A? 7(RO) 
07 AO O02F 
04 00031 1$ RET 


; Routine Size: 50 bytes, Routine Base: S$CODE$ + 0272 
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v04- 13-808- 1382 95:20:25 MTAACP SRE TFRAOD 93504 . (6) 

; 611 989 1 GLOBAL ROUTINE FORMAT_FID (BUFFER) : NOVALUE = ‘ 
: oig 990 1 : 
Be Bh die | 
: 615 993 1 | FUNCTIONAL DESCRIPTION: ; 
3 618 B38 : This routine formats the binary file id. ‘ 
; 618 996 i CALLING SEQUENCE: : 
; 61 997 1! FORMAT _F ID(ARG1) F 
; 620 998 1! ' 3 
s 62) 0999 1 ! INPUT PARAMETERS: : 
: ° § 1900 } } ARG1 = address of buffer to receive 4 byte binary file id : 
3 624 1002 1 | IMPLICIT INPUTS: 
; ? 2 IS? ! HDR1 in Label area ; 
; 627 1005 1 } OUTPUT PARAMETERS: ; 
3 oc8 1908 : } ARG1 = address of buffer to received binary file id : 
: 8% 1008 1! IMPLICIT OUTPUTS: ; 
: 83 1010 1 i ame 
; £3 1011 1 | ROUTINE VALUE: ; 
Boab | eee : 
; 636 1014 1 | SIDE EFFECTS: ; 
: 637 1015 1! buffer receives gg file id 3 
; 638 1016 1! 1 word file number (HDR1 section number) : 
; 639 1017 1! word file sequence number (HDR1 sequence number) : 
; 640 1018 1} : 
: a3 1020 1 
; eas 1931 BEGIN : 
> 645 1098 LOCAL ; 
3 one ose RESULT; ! Long word work area for conversions : 
; 668 1966 H convert file number first ; 
; 630 1356 iF a LIBSCVT_DTB(HDISS_FILESEQNO, HDRICHDIST_FILESEQNO), RESULT) : 
; 63¢ 1080 RESULT = 0; 3 
: $38 1936 store file number : 
: 696 1034 (.BUFFER)<O, 16> = .RESULT<O, 16>; : 
: 698 1036 ! convert file sequence number : 
: o69 1038 if _ LIBSCVT_DTB(HD1SS_FILESECNO, HDRICHDIST_FILESECNO), RESULT) : 
; 66¢ 1040 RESULT = 0; 3 
: re) H ok store file sequence number : 
; 606 B44 (BUFFER) <16, 16> = .RESULT<O, 16>; 3 
; 66 1045 END; ! end of routine 3 
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0004 000 .ENTRY FORMAT_FID, Save R2 ; 

52 000000006 9F ae Me HOVAR an iBstvt_b1B, R2 ; 

oF DD o¢ PUSH " : 

7E 00006 CF iF ci Oo ADDL 3 #31, HORI, -(SP) : 
6 F 1 CALLS #3, LIBS$CVT_DTB : 

88 95 EB 818 BLBS RO 4 . : 

6E 4 ic CLRL RESULT F 

04 BC gE 80 oor 1$ HOV RESULT, @BUFFER : 

7E 00006 CF 18 ci 3 4 ADDL 3 #27, HDR1, -(SP) : 
62 03 Fe $0 C CALLS #3, LIBSCVT_DTB F 

0 0 £8 0002F BLBS RO, 2$ : 

6E D4 00032 CLRL RESULT : 

04 BC 10 10 6E FO 00034 2$ INSV RESULT, #16, #16, @BUFFER : 
04 0003A RET : 


; Routine Size: 59 bytes, Routine Base: S$CODE$S + 02A4 


: 668 1046 1 

; 669 1047 1 END 

: 670 1048 1 

s 671 1049 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: SCODES 735 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 

eee ) eS ee Symbols -------- Pages Processing 

z File Total Loaded Percent Mapped Time 


~$255$DUA28: CSYSLIBILIB.L32;1 18619 61 0 1000 00:01.8 


v04~000 1RhSoc9Rs Q3:20:25 WAtaLLAPLASc HR 0358 a 


: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:FRMOD1/OBJ=OBJ$:FRMOD1 MSRC$:FRMOD1/UPDATE=(ENH$:FRMOD1) 


; Size: 719 fod + 16 data bytes 
; Run Time: tif. 
; Elapsed Time: 


; Lines/CPU Min: 3 
; Lexemes/CPU-Min: 204 

aoty Used: 223 pages 
; Compilation Complete 
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